home *** CD-ROM | disk | FTP | other *** search
/ Old Testament Foundatiosn with Philip Yancey / Old Testament Foundatiosn with Philip Yancey - Disc 2.iso / pc / data / m17.dir / 00011.ls < prev    next >
Encoding:
Text File  |  1996-09-09  |  12.1 KB  |  345 lines
  1. on checkColumn
  2.   global gColumn, gRow
  3.   if (the mouseH >= 159) and (the mouseH < 249) then
  4.     set gColumn to 1
  5.     checkRow1()
  6.   else
  7.     if (the mouseH >= 249) and (the mouseH < 339) then
  8.       set gColumn to 2
  9.       checkRow2()
  10.     else
  11.       if (the mouseH >= 339) and (the mouseH < 429) then
  12.         set gColumn to 3
  13.         checkRow3()
  14.       else
  15.         if (the mouseH >= 429) and (the mouseH < 519) then
  16.           set gColumn to 4
  17.           checkRow4()
  18.         else
  19.           if (the mouseH >= 519) and (the mouseH < 606) then
  20.             set gColumn to 5
  21.             checkRow5()
  22.           else
  23.             set gColumn to 0
  24.             set the castNum of sprite 11 to cast "m17"
  25.             updateStage()
  26.           end if
  27.         end if
  28.       end if
  29.     end if
  30.   end if
  31. end
  32.  
  33. on checkRow1
  34.   global gColumn, gRow
  35.   set upCast to the number of cast "m17"
  36.   if (the mouseV >= 162) and (the mouseV < 183) then
  37.     set gRow to 1
  38.     set downCast to the number of cast ("c" & gColumn & "." & gRow)
  39.     set the castNum of sprite 11 to downCast
  40.     updateStage()
  41.   else
  42.     if (the mouseV >= 183) and (the mouseV < 200) then
  43.       set gRow to 2
  44.       set downCast to the number of cast ("c" & gColumn & "." & gRow)
  45.       set the castNum of sprite 11 to downCast
  46.       updateStage()
  47.     else
  48.       if (the mouseV >= 200) and (the mouseV < 214) then
  49.         set gRow to 3
  50.         set downCast to the number of cast ("c" & gColumn & "." & gRow)
  51.         set the castNum of sprite 11 to downCast
  52.         updateStage()
  53.       else
  54.         if (the mouseV >= 214) and (the mouseV < 231) then
  55.           set gRow to 4
  56.           set downCast to the number of cast ("c" & gColumn & "." & gRow)
  57.           set the castNum of sprite 11 to downCast
  58.           updateStage()
  59.         else
  60.           if (the mouseV >= 231) and (the mouseV < 245) then
  61.             set gRow to 5
  62.             set downCast to the number of cast ("c" & gColumn & "." & gRow)
  63.             set the castNum of sprite 11 to downCast
  64.             updateStage()
  65.           else
  66.             if (the mouseV >= 265) and (the mouseV < 294) then
  67.               set gRow to 6
  68.               set downCast to the number of cast ("c" & gColumn & "." & gRow)
  69.               set the castNum of sprite 11 to downCast
  70.               updateStage()
  71.             else
  72.               if (the mouseV >= 294) and (the mouseV < 311) then
  73.                 set gRow to 7
  74.                 set downCast to the number of cast ("c" & gColumn & "." & gRow)
  75.                 set the castNum of sprite 11 to downCast
  76.                 updateStage()
  77.               else
  78.                 if (the mouseV >= 311) and (the mouseV < 326) then
  79.                   set gRow to 8
  80.                   set downCast to the number of cast ("c" & gColumn & "." & gRow)
  81.                   set the castNum of sprite 11 to downCast
  82.                   updateStage()
  83.                 else
  84.                   if (the mouseV >= 326) and (the mouseV < 354) then
  85.                     set gRow to 9
  86.                     set downCast to the number of cast ("c" & gColumn & "." & gRow)
  87.                     set the castNum of sprite 11 to downCast
  88.                     updateStage()
  89.                   else
  90.                     if (the mouseV >= 354) and (the mouseV < 370) then
  91.                       set gRow to 10
  92.                       set downCast to the number of cast ("c" & gColumn & "." & gRow)
  93.                       set the castNum of sprite 11 to downCast
  94.                       updateStage()
  95.                     else
  96.                       if (the mouseV >= 370) and (the mouseV < 394) then
  97.                         set gRow to 11
  98.                         set downCast to the number of cast ("c" & gColumn & "." & gRow)
  99.                         set the castNum of sprite 11 to downCast
  100.                         updateStage()
  101.                       else
  102.                         if (the mouseV >= 394) and (the mouseV < 416) then
  103.                           set gRow to 12
  104.                           set downCast to the number of cast ("c" & gColumn & "." & gRow)
  105.                           set the castNum of sprite 11 to downCast
  106.                           updateStage()
  107.                         else
  108.                           set gRow to 0
  109.                           set the castNum of sprite 11 to cast "m17"
  110.                           updateStage()
  111.                         end if
  112.                       end if
  113.                     end if
  114.                   end if
  115.                 end if
  116.               end if
  117.             end if
  118.           end if
  119.         end if
  120.       end if
  121.     end if
  122.   end if
  123. end
  124.  
  125. on checkRow2
  126.   global gColumn, gRow
  127.   set upCast to the number of cast "m17"
  128.   if (the mouseV >= 162) and (the mouseV < 183) then
  129.     set gRow to 1
  130.     set downCast to the number of cast ("c" & gColumn & "." & gRow)
  131.     set the castNum of sprite 11 to downCast
  132.     updateStage()
  133.   else
  134.     if (the mouseV >= 183) and (the mouseV < 200) then
  135.       set gRow to 2
  136.       set downCast to the number of cast ("c" & gColumn & "." & gRow)
  137.       set the castNum of sprite 11 to downCast
  138.       updateStage()
  139.     else
  140.       if (the mouseV >= 200) and (the mouseV < 214) then
  141.         set gRow to 3
  142.         set downCast to the number of cast ("c" & gColumn & "." & gRow)
  143.         set the castNum of sprite 11 to downCast
  144.         updateStage()
  145.       else
  146.         if (the mouseV >= 214) and (the mouseV < 231) then
  147.           set gRow to 4
  148.           set downCast to the number of cast ("c" & gColumn & "." & gRow)
  149.           set the castNum of sprite 11 to downCast
  150.           updateStage()
  151.         else
  152.           if (the mouseV >= 231) and (the mouseV < 245) then
  153.             set gRow to 5
  154.             set downCast to the number of cast ("c" & gColumn & "." & gRow)
  155.             set the castNum of sprite 11 to downCast
  156.             updateStage()
  157.           else
  158.             if (the mouseV >= 245) and (the mouseV < 275) then
  159.               set gRow to 6
  160.               set downCast to the number of cast ("c" & gColumn & "." & gRow)
  161.               set the castNum of sprite 11 to downCast
  162.               updateStage()
  163.             else
  164.               if (the mouseV >= 275) and (the mouseV < 294) then
  165.                 set gRow to 7
  166.                 set downCast to the number of cast ("c" & gColumn & "." & gRow)
  167.                 set the castNum of sprite 11 to downCast
  168.                 updateStage()
  169.               else
  170.                 if (the mouseV >= 394) and (the mouseV < 416) then
  171.                   set gRow to 8
  172.                   set downCast to the number of cast ("c" & gColumn & "." & gRow)
  173.                   set the castNum of sprite 11 to downCast
  174.                   updateStage()
  175.                 else
  176.                   set gRow to 0
  177.                   set the castNum of sprite 11 to cast "m17"
  178.                   updateStage()
  179.                 end if
  180.               end if
  181.             end if
  182.           end if
  183.         end if
  184.       end if
  185.     end if
  186.   end if
  187. end
  188.  
  189. on checkRow3
  190.   global gColumn, gRow
  191.   set upCast to the number of cast "m17"
  192.   if (the mouseV >= 162) and (the mouseV < 183) then
  193.     set gRow to 1
  194.     set downCast to the number of cast ("c" & gColumn & "." & gRow)
  195.     set the castNum of sprite 11 to downCast
  196.     updateStage()
  197.   else
  198.     if (the mouseV >= 183) and (the mouseV < 200) then
  199.       set gRow to 2
  200.       set downCast to the number of cast ("c" & gColumn & "." & gRow)
  201.       set the castNum of sprite 11 to downCast
  202.       updateStage()
  203.     else
  204.       if (the mouseV >= 200) and (the mouseV < 214) then
  205.         set gRow to 3
  206.         set downCast to the number of cast ("c" & gColumn & "." & gRow)
  207.         set the castNum of sprite 11 to downCast
  208.         updateStage()
  209.       else
  210.         if (the mouseV >= 214) and (the mouseV < 231) then
  211.           set gRow to 4
  212.           set downCast to the number of cast ("c" & gColumn & "." & gRow)
  213.           set the castNum of sprite 11 to downCast
  214.           updateStage()
  215.         else
  216.           if (the mouseV >= 231) and (the mouseV < 245) then
  217.             set gRow to 5
  218.             set downCast to the number of cast ("c" & gColumn & "." & gRow)
  219.             set the castNum of sprite 11 to downCast
  220.             updateStage()
  221.           else
  222.             if (the mouseV >= 394) and (the mouseV < 416) then
  223.               set gRow to 6
  224.               set downCast to the number of cast ("c" & gColumn & "." & gRow)
  225.               set the castNum of sprite 11 to downCast
  226.               updateStage()
  227.             else
  228.               set gRow to 0
  229.               set the castNum of sprite 11 to cast "m17"
  230.               updateStage()
  231.             end if
  232.           end if
  233.         end if
  234.       end if
  235.     end if
  236.   end if
  237. end
  238.  
  239. on checkRow4
  240.   global gColumn, gRow
  241.   set upCast to the number of cast "m17"
  242.   if (the mouseV >= 162) and (the mouseV < 183) then
  243.     set gRow to 1
  244.     set downCast to the number of cast ("c" & gColumn & "." & gRow)
  245.     set the castNum of sprite 11 to downCast
  246.     updateStage()
  247.   else
  248.     if (the mouseV >= 183) and (the mouseV < 200) then
  249.       set gRow to 2
  250.       set downCast to the number of cast ("c" & gColumn & "." & gRow)
  251.       set the castNum of sprite 11 to downCast
  252.       updateStage()
  253.     else
  254.       if (the mouseV >= 200) and (the mouseV < 214) then
  255.         set gRow to 3
  256.         set downCast to the number of cast ("c" & gColumn & "." & gRow)
  257.         set the castNum of sprite 11 to downCast
  258.         updateStage()
  259.       else
  260.         if (the mouseV >= 214) and (the mouseV < 231) then
  261.           set gRow to 4
  262.           set downCast to the number of cast ("c" & gColumn & "." & gRow)
  263.           set the castNum of sprite 11 to downCast
  264.           updateStage()
  265.         else
  266.           if (the mouseV >= 231) and (the mouseV < 245) then
  267.             set gRow to 5
  268.             set downCast to the number of cast ("c" & gColumn & "." & gRow)
  269.             set the castNum of sprite 11 to downCast
  270.             updateStage()
  271.           else
  272.             if (the mouseV >= 245) and (the mouseV < 265) then
  273.               set gRow to 6
  274.               set downCast to the number of cast ("c" & gColumn & "." & gRow)
  275.               set the castNum of sprite 11 to downCast
  276.               updateStage()
  277.             else
  278.               if (the mouseV >= 394) and (the mouseV < 416) then
  279.                 set gRow to 7
  280.                 set downCast to the number of cast ("c" & gColumn & "." & gRow)
  281.                 set the castNum of sprite 11 to downCast
  282.                 updateStage()
  283.               else
  284.                 set gRow to 0
  285.                 set the castNum of sprite 11 to cast "m17"
  286.                 updateStage()
  287.               end if
  288.             end if
  289.           end if
  290.         end if
  291.       end if
  292.     end if
  293.   end if
  294. end
  295.  
  296. on checkRow5
  297.   global gColumn, gRow
  298.   set upCast to the number of cast "m17"
  299.   if (the mouseV >= 162) and (the mouseV < 183) then
  300.     set gRow to 1
  301.     set downCast to the number of cast ("c" & gColumn & "." & gRow)
  302.     set the castNum of sprite 11 to downCast
  303.     updateStage()
  304.   else
  305.     if (the mouseV >= 183) and (the mouseV < 200) then
  306.       set gRow to 2
  307.       set downCast to the number of cast ("c" & gColumn & "." & gRow)
  308.       set the castNum of sprite 11 to downCast
  309.       updateStage()
  310.     else
  311.       if (the mouseV >= 200) and (the mouseV < 214) then
  312.         set gRow to 3
  313.         set downCast to the number of cast ("c" & gColumn & "." & gRow)
  314.         set the castNum of sprite 11 to downCast
  315.         updateStage()
  316.       else
  317.         if (the mouseV >= 214) and (the mouseV < 231) then
  318.           set gRow to 4
  319.           set downCast to the number of cast ("c" & gColumn & "." & gRow)
  320.           set the castNum of sprite 11 to downCast
  321.           updateStage()
  322.         else
  323.           if (the mouseV >= 231) and (the mouseV < 245) then
  324.             set gRow to 5
  325.             set downCast to the number of cast ("c" & gColumn & "." & gRow)
  326.             set the castNum of sprite 11 to downCast
  327.             updateStage()
  328.           else
  329.             if (the mouseV >= 394) and (the mouseV < 416) then
  330.               set gRow to 6
  331.               set downCast to the number of cast ("c" & gColumn & "." & gRow)
  332.               set the castNum of sprite 11 to downCast
  333.               updateStage()
  334.             else
  335.               set gRow to 0
  336.               set the castNum of sprite 11 to cast "m17"
  337.               updateStage()
  338.             end if
  339.           end if
  340.         end if
  341.       end if
  342.     end if
  343.   end if
  344. end
  345.